IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/storage/function/cdrom/saud2.scr

Text File | 1994-09-07 | 631 b | 29 lines

@thread SAUD2.LOG
@NewAlias cd CDROM.GRA
@IMPORT SYSINFO.TXT
cd LOG $PROMPT="LOGGING STOPAUDIO2"
cd LOG $PROMPT="THREAD 1"
cd set SECTORSTART=50
cd set SECTORCOUNT=20000
cd set ADDRESSMODE=LOGICALBLOCK
cd CDROM_OPEN
cd CDROM_PLAYAUDIO
cd response $PROMPT="PLAYING AUDIO" $PAUSE=40
cd CDROM_CLOSE
@flush cd
*
*
*
@thread SAUD2.LOG
@NewAlias cd CDROM.GRA
@IMPORT SYSINFO.TXT
cd LOG $PROMPT="LOGGING STOPAUDIO2"
cd LOG $PROMPT="THREAD 2"
cd CDROM_OPEN
cd response $PROMPT="STOPPING AUDIO IN 30 SECONDS" $PAUSE=30
cd response $PROMPT="STOPPING AUDIO" $PAUSE=1
cd CDROM_STOPAUDIO
cd CDROM_CLOSE
@flush cd